From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 28 May 1993 20:33:14 +0000 (+0000)
Subject: (hexl-char-after-point): Get rid of mistakenly free variables.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95844
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=686fc9abcba115c5c8027a1b884fe6f5c0b9bb10;p=emacs.git

(hexl-char-after-point): Get rid of mistakenly free variables.
---

diff --git a/lisp/hexl.el b/lisp/hexl.el
index d561f4a7829..e8e5e430937 100644
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -500,9 +500,8 @@ You may also type up to 3 octal digits, to insert a character with that code"
 
 (defun hexl-char-after-point ()
   "Return char for ASCII hex digits at point."
-  (setq lh (char-after (point)))
-  (setq rh (char-after (1+ (point))))
-  (hexl-htoi lh rh))
+  (hexl-htoi (char-after (point))
+	     (char-after (1+ (point)))))
 
 (defun hexl-htoi (lh rh)
   "Hex (char) LH (char) RH to integer."